Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1681 (N49E01 L=169)   340     74        1 ( 948/1645-1010/1702)  59.0 E03-W02 N45-N50
      2 1157 1655 (N46W15 L=185)   292     62        1 (1127/1628-1189/1674) -11.3 W12-W17 N43-N47
      3 1351 1499 (N33W27 L=196)   251     51        1 (1324/1474-1377/1523) -56.3 W24-W28 N31-N34
      4  689 1287 (N21E21 L=148)   527    156        1 ( 623/1245- 732/1327) -20.6 E26-E18 N18-N24
      5 1393 1266 (N17W25 L=195)   371    131        0 (1347/1219-1436/1317) -50.2 W22-W27 N14-N20
      6 1156  972 (N01W08 L=178)   266    144        0 (1103/ 940-1218/ 991) -15.9 W04-W11 S01-N01
      7 1706  796 (S14W47 L=217)   777    240        2 (1642/ 737-1768/ 866)  35.0 W41-W52 S17-S09
      8  365  755 (S11E47 L=122)   920    266        2 ( 330/ 636- 411/ 859)  59.0 E53-E41 S19-S04
      9  941  715 (S15E06 L=163)   975    373        6 ( 782/ 649-1058/ 792)  10.0 E16-W01 S18-S10
     10 1726  640 (S24W53 L=223)  2168    437        6 (1589/ 515-1837/ 763)  35.5 W42-W64 S32-S17
     11 1278  597 (S24W15 L=185)  1137    270        2 (1192/ 495-1377/ 670)  42.5 W09-W22 S30-S19
     12 1000  599 (S23E03 L=166)   646    183        3 ( 945/ 531-1045/ 659)  48.8 E07-W00 S27-S18
     13  508  313 (S44E56 L=113)   559     71        1 ( 488/ 297- 542/ 342) -53.1 E60-E52 S45-S41
     14 1106  232 (S54W04 L=173)   441     49        1 (1090/ 203-1122/ 266) -66.8 W02-W05 S57-S50
     15 1292  189 (S62W30 L=199)   885     76        1 (1272/ 150-1308/ 233) -37.4 W24-W41 S68-S55
  

    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