Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  512 1399 (N33E35 L=320)   862    219        2 ( 427/1331- 582/1445) -26.6 E44-E28 N28-N36
      2 1164 1243 (N17W11 L=  6)   190     72        0 (1152/1206-1176/1279) -78.7 W10-W11 N14-N19
      3  182 1228 (N23E68 L=286)   643     78        3 ( 164/1185- 195/1267) -45.0 E71-E65 N20-N25
      4 1553 1126 (N06W35 L= 30)   244     84        1 (1522/1097-1584/1158)  31.0 W32-W37 N04-N07
      5 1735 1055 (S01W49 L= 44)  1046    195        0 (1716/ 961-1759/1153)  74.7 W46-W52 S07-N04
      6  666  882 (S00E24 L=331)   281    158        0 ( 620/ 835- 720/ 940) -45.0 E26-E20 S03-N03
      7 1697  864 (S12W44 L= 39)   374     92        0 (1661/ 838-1732/ 902)  18.4 W41-W47 S13-S10
      8 1845  823 (S18W61 L= 56)   891    150        1 (1810/ 783-1878/ 861)  63.4 W56-W66 S20-S15
      9  643  752 (S08E27 L=328)   353     65        1 ( 611/ 727- 681/ 774)  21.8 E28-E23 S09-S06
     10  563  688 (S12E34 L=321)   533    139        1 ( 538/ 627- 585/ 744)  74.1 E35-E31 S15-S08
     11  738  656 (S15E22 L=333)   743    222        0 ( 656/ 617- 776/ 729) -14.0 E27-E19 S17-S10
     12  222  656 (S13E69 L=286)   714     70        3 ( 194/ 626- 242/ 687) -53.1 E72-E66 S14-S10
     13 1424  560 (S29W23 L= 18)  1569    398        2 (1293/ 467-1591/ 669)  24.4 W13-W36 S34-S23
     14  948  642 (S18E09 L=346)   244     88        0 ( 913/ 630- 994/ 654)   0.0 E11-E05 S18-S16
     15 1744  632 (S29W53 L= 47)   572     73        1 (1705/ 617-1781/ 651)  -5.7 W47-W57 S30-S27
     16 1009  553 (S24E06 L=349)   432    121        0 ( 983/ 505-1052/ 605)  45.0 E08-E02 S27-S21
     17 1493  471 (S37W30 L= 25)  1046    257        1 (1377/ 433-1594/ 531)   9.5 W20-W38 S38-S33
     18 1021  368 (S38E08 L=346)   374     70        0 ( 990/ 352-1066/ 386) -18.4 E10-E04 S39-S36
     19 1094  311 (S44E04 L=351)  1643    229        4 (1015/ 246-1181/ 374)  25.0 E11-W04 S50-S39
  

    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