Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1685 1489 (N20W53 L=350)   496    104        0 (1646/1427-1720/1535) -76.0 W51-W54 N15-N23
      2  273 1388 (N31E51 L=245)  1267    293        4 ( 226/1331- 317/1442)  76.0 E56-E47 N26-N34
      3  483 1309 (N23E32 L=264)   549    184        0 ( 410/1270- 547/1374)  20.0 E38-E27 N20-N26
      4 1360 1239 (N08W23 L=319)   219     94        0 (1327/1182-1382/1276)  51.3 W20-W24 N05-N10
      5  159 1166 (N18E62 L=234)   492     97        0 ( 134/1146- 183/1184) -31.0 E65-E59 N16-N19
      6 1871 1133 (S03W63 L=359)  1099    225        2 (1837/1088-1910/1178) -51.3 W59-W68 S05-N00
      7 1433 1135 (N01W26 L=322)   413     68        1 (1408/1095-1450/1177)  56.3 W24-W27 N00-N03
      8 1419 1046 (S04W24 L=321)   313     64        1 (1389/1007-1447/1077) -53.1 W22-W25 S06-S01
      9 1732  922 (S14W46 L=343)   566    142        0 (1699/ 856-1772/ 985)  49.4 W43-W50 S17-S10
     10 1626  910 (S14W37 L=334)   320     70        1 (1609/ 878-1647/ 951)  63.4 W36-W39 S15-S11
     11 1419  882 (S13W23 L=319)   251     51        1 (1394/ 854-1446/ 910) -45.0 W21-W24 S15-S11
     12  322  869 (S02E48 L=248)   286     54        0 ( 306/ 836- 342/ 898) -90.0 E49-E46 S03-N00
     13 1838  825 (S21W56 L=353)   544    109        0 (1807/ 783-1876/ 861)  29.7 W53-W60 S23-S19
     14 1117  700 (S21W02 L=298)   980    221        5 (1040/ 601-1170/ 788)  51.3 E03-W06 S26-S16
     15  381  688 (S13E47 L=249)  1296    217        6 ( 332/ 637- 443/ 749) -74.1 E51-E42 S16-S09
     16 1627  668 (S29W38 L=335)   538    111        0 (1573/ 621-1676/ 711)  32.0 W33-W42 S31-S26
     17  471  547 (S23E45 L=252)   884    239        2 ( 440/ 452- 496/ 640)  47.7 E49-E39 S29-S17
     18  788  278 (S46E33 L=264)   582    106        2 ( 763/ 246- 813/ 315)  45.0 E35-E29 S49-S43
     19  639  224 (S49E50 L=246)   668    125        1 ( 615/ 199- 661/ 251)  26.6 E54-E46 S50-S46
  

    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