Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1010 1630 (N39E12 L=124)   550    124        3 ( 982/1576-1042/1679) -45.0 E15-E08 N35-N42
      2 1435 1579 (N43W23 L=159)   323     77        1 (1408/1556-1467/1598)  31.0 W20-W25 N40-N44
      3  392 1451 (N17E52 L= 84)   520    124        0 ( 344/1423- 435/1497)  45.0 E56-E49 N14-N20
      4 1316 1463 (N32W13 L=149)   289     50        1 (1293/1434-1339/1484)  56.3 W11-W14 N30-N33
      5  752 1348 (N16E22 L=114)   268    101        1 ( 694/1328- 791/1373)  26.6 E25-E19 N13-N17
      6  670 1270 (N10E26 L=110)   211     75        0 ( 642/1235- 696/1305) -38.7 E28-E23 N07-N11
      7  965 1258 (N13E07 L=129)   396    104        2 ( 906/1233-1009/1291)  26.6 E10-E04 N11-N15
      8  974 1158 (N07E05 L=131)   829    304        5 ( 862/1049-1085/1236) -21.8 E12-W03 N02-N10
      9  632  953 (S10E23 L=113)   360    154        0 ( 569/ 928- 703/ 996)  32.0 E27-E19 S11-S06
     10  977  860 (S11E00 L=136)   734    164        2 ( 945/ 776-1003/ 947) -78.7 E03-W02 S15-S05
     11 1423  768 (S10W29 L=165)   251     83        0 (1395/ 728-1457/ 812)  71.6 W27-W30 S12-S06
     12 1566  726 (S10W40 L=176)   291     41        0 (1539/ 699-1587/ 754)  56.3 W38-W41 S11-S08
     13  429  566 (S39E39 L= 97)   362    143        0 ( 392/ 547- 478/ 593)  29.1 E42-E33 S40-S35
     14 1149  375 (S40W22 L=158)   276     93        0 (1117/ 357-1191/ 398) -14.0 W18-W26 S40-S38
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y