Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1242 1629 (N37E05 L= 82)  1780    480        4 (1171/1409-1347/1818) -49.6 E17-W08 N25-N52
      2 1019 1543 (N24E15 L= 72)  1538    487        4 ( 868/1380-1178/1638) -15.6 E26-E01 N18-N28
      3 1586 1291 (N26W27 L=114)   825    220        3 (1518/1237-1631/1372)  78.7 W21-W30 N22-N32
      4 1856 1308 (N38W56 L=143)  1030    121        2 (1822/1259-1901/1339)  29.4 W50-W67 N32-N41
      5  279 1299 (S08E57 L= 30)   360    108        0 ( 252/1245- 295/1338) -39.8 E61-E54 S10-S05
      6  493 1279 (S04E38 L= 49)   251     99        0 ( 470/1242- 521/1323)  90.0 E39-E37 S06-S01
      7  719 1245 (S01E23 L= 64)   503    140        5 ( 674/1198- 771/1302)  74.1 E24-E20 S04-N03
      8  167 1217 (S14E68 L= 19)   660     68        4 ( 148/1182- 187/1264) -59.0 E71-E64 S16-S11
      9  325 1231 (S11E50 L= 37)   368     65        0 ( 295/1194- 348/1258)  78.7 E51-E47 S13-S08
     10 1509 1216 (N19W23 L=110)   263     74        0 (1468/1194-1536/1231)  11.3 W20-W25 N17-N20
     11  753 1028 (S12E15 L= 72)   456    176        0 ( 671/ 987- 805/1077)  49.4 E19-E12 S15-S08
     12  399 1030 (S20E39 L= 48)   232     67        2 ( 369/1012- 441/1047)   0.0 E41-E35 S21-S19
     13 1428  879 (S02W27 L=114)   820    243        3 (1393/ 767-1472/ 983) -42.0 W22-W32 S06-N03
     14  359  860 (S31E40 L= 47)   563    151        1 ( 322/ 796- 383/ 934)  68.2 E43-E38 S36-S26
     15 1733  776 (N02W52 L=139)  1023    336        2 (1701/ 619-1753/ 884) -42.7 W45-W59 S05-N07
  

    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