Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  448 1641 (N16E59 L=169)  1742    351        4 ( 325/1543- 537/1707)  49.8 E66-E54 N07-N21
      2  929 1575 (N23E22 L=206)   265     90        0 ( 908/1540- 959/1614) -80.5 E23-E21 N20-N26
      3  643 1570 (N16E40 L=188)   285     98        0 ( 611/1531- 666/1597) -23.2 E43-E36 N13-N16
      4  584 1437 (N06E38 L=190)   503    109        2 ( 537/1415- 636/1462)  33.7 E41-E35 N04-N09
      5 1497 1287 (N23W21 L=249)   644    167        1 (1449/1212-1534/1376) -41.6 W15-W24 N19-N27
      6 1187 1301 (N14W01 L=229)   457    154        2 (1124/1245-1230/1368)  84.3 W00-W02 N09-N19
      7  413 1152 (S14E41 L=187)  1434    450        1 ( 266/1046- 490/1322)  65.8 E51-E37 S22-S02
      8  752 1036 (S12E16 L=212)   253    104        1 ( 702/1019- 807/1048)  33.7 E18-E12 S14-S10
      9  856  842 (S20E04 L=224)   205     50        0 ( 827/ 817- 887/ 866) -14.0 E06-E02 S20-S18
     10 1248  798 (S11W19 L=247)   209     65        1 (1211/ 781-1278/ 813)  26.6 W16-W20 S12-S10
     11  827  759 (S26E04 L=224)   243     80        0 ( 812/ 716- 846/ 798) -53.1 E05-E01 S27-S23
     12  254  765 (S41E50 L=178)   625    136        0 ( 220/ 744- 304/ 795)   6.3 E53-E44 S42-S39
     13 1098  631 (S25W16 L=244)   510    193        0 (1004/ 565-1163/ 702) -12.1 W08-W22 S27-S23
     14  930  599 (S32W07 L=235)  1093    282        0 ( 795/ 524-1066/ 700)  -5.2 E04-W18 S33-S29
     15 1550  586 (S14W46 L=274)   620     66        1 (1517/ 550-1591/ 616)  59.0 W43-W48 S16-S11
     16 1058  242 (S51W37 L=265)  2755    464        6 ( 994/ 155-1140/ 345) -14.0 W24-W52 S56-S45
     17 1427  316 (S32W54 L=282)   411     44        0 (1408/ 295-1455/ 331)  71.6 W51-W55 S33-S30
     18 1348  279 (S37W51 L=279)   792    126        1 (1318/ 239-1379/ 317) -39.8 W47-W54 S40-S35
     19 1200  244 (S45W46 L=274)   847    135        1 (1170/ 212-1239/ 289) -11.3 W40-W50 S47-S42
  

    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