Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1548 1607 (N22W54 L=289)   409     73        1 (1502/1594-1586/1624) -23.2 W49-W56 N19-N23
      2  437 1394 (N42E32 L=204)   320     60        1 ( 407/1369- 466/1414) -33.7 E34-E28 N39-N43
      3  981 1272 (N19W04 L=240)   236    110        0 ( 928/1253-1039/1286) -33.7 W01-W07 N17-N21
      4 1352 1178 (N05W22 L=258)  1480    424        4 (1196/1058-1521/1270)   4.8 W10-W34 N01-N07
      5  998 1166 (N13W02 L=238)   223     66        0 ( 977/1139-1028/1189)  14.0 W00-W04 N11-N14
      6 1916  990 (S23W64 L=300)  1600    139        2 (1878/ 934-1950/1047) -56.3 W57-W71 S27-S18
      7  726  972 (N09E18 L=218)   746    141        4 ( 667/ 920- 771/1037)  18.4 E22-E13 N05-N12
      8 1404  936 (S10W19 L=254)   371    123        0 (1373/ 891-1449/ 994) -76.0 W17-W20 S13-S05
      9 1814  834 (S29W49 L=285)   928    120        1 (1775/ 791-1857/ 882)  18.4 W44-W54 S30-S26
     10  702  799 (N00E24 L=212)   247     82        0 ( 660/ 787- 746/ 811) -11.3 E26-E21 N00-N01
     11  451  620 (S04E46 L=189)  1738    413        4 ( 342/ 480- 538/ 785) -84.3 E49-E44 S13-N07
     12  944  753 (S08E11 L=224)   277    137        0 ( 885/ 714- 983/ 778) -45.0 E14-E09 S10-S05
     13  814  641 (S11E22 L=214)   250     54        0 ( 797/ 608- 828/ 672)  63.4 E22-E20 S13-S09
     14 1603  597 (S37W26 L=262)  1349    209        1 (1519/ 548-1667/ 664)   8.7 W19-W32 S38-S33
     15 1079  574 (S22E09 L=226)   701    176        0 (1048/ 486-1107/ 653)  48.4 E13-E05 S26-S17
     16  358  571 (S05E56 L=179)   789    135        2 ( 331/ 502- 388/ 621)  31.0 E63-E51 S08-S02
     17  611  476 (S16E41 L=195)  2136    452        3 ( 547/ 345- 725/ 560)  75.1 E47-E31 S25-S10
     18  652  454 (S18E39 L=196)   453     91        0 ( 609/ 437- 701/ 475) -26.6 E42-E36 S20-S16
     19  475  356 (S21E60 L=175)  5346    343       17 ( 300/ 276- 596/ 433) -30.6 E79-E48 S28-S13
     20  749  277 (S32E44 L=191)   540    147        0 ( 679/ 259- 795/ 311) -11.3 E49-E39 S34-S30
  

    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