Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  354 1660 (N19E70 L=356)  1975    235        6 ( 280/1587- 428/1759)  90.0 E76-E65 N13-N27
      2  622 1656 (N22E42 L= 24)   715    160        1 ( 580/1601- 660/1715) -69.4 E46-E40 N18-N26
      3  493 1627 (N18E51 L= 15)   577    100        1 ( 472/1593- 526/1668) -39.8 E53-E46 N16-N21
      4  637 1584 (N18E38 L= 29)   283     66        1 ( 604/1560- 659/1605)  33.7 E39-E35 N16-N19
      5  791 1509 (N16E25 L= 41)   481    172        0 ( 751/1434- 845/1574)  84.8 E25-E23 N10-N21
      6  366 1369 (N01E50 L= 16)   713    135        2 ( 295/1353- 433/1388)  10.3 E56-E44 S01-N02
      7 1703 1276 (N24W38 L=105)   925    276        1 (1590/1195-1799/1341)  39.8 W29-W48 N15-N31
      8  772 1273 (N02E20 L= 47)   223     74        0 ( 743/1242- 802/1307)  63.4 E20-E18 N00-N04
      9  394 1213 (S08E43 L= 23)   414    120        0 ( 330/1187- 450/1234)   0.0 E48-E38 S08-S06
     10  351 1053 (S18E44 L= 22)   407    114        0 ( 313/1011- 376/1080) -63.4 E47-E41 S20-S16
     11 1329 1027 (S00W17 L= 83)   298    135        0 (1285/ 965-1362/1070) -33.7 W13-W19 S03-N01
     12 1666  989 (N06W40 L=106)   487    112        2 (1608/ 951-1708/1009)  14.0 W35-W43 N04-N07
     13 1215  945 (S07W12 L= 79)   283    101        0 (1204/ 888-1232/ 996) -80.5 W11-W13 S10-S04
     14  877  961 (S14E07 L= 59)   481    158        1 ( 801/ 932- 956/ 988)   6.3 E11-E02 S14-S12
     15  316  865 (S30E46 L= 20)  2289    530        3 ( 105/ 756- 513/ 987)  17.5 E87-E30 S37-S19
     16 1904  901 (N09W65 L=132)   807    138        3 (1876/ 870-1928/ 941) -36.9 W61-W69 N06-N11
     17 1576  778 (S08W39 L=105)   548    165        0 (1513/ 734-1645/ 811)  40.6 W35-W44 S11-S04
     18 1353  695 (S18W27 L= 94)   601    241        0 (1247/ 659-1463/ 724)  33.7 W21-W34 S22-S14
     19 1691  573 (S15W57 L=123)  2244    232        8 (1608/ 491-1758/ 646) -73.3 W49-W66 S19-S09
     20  348  594 (S47E47 L= 20)   416     53        1 ( 315/ 581- 381/ 612)   6.3 E51-E42 S48-S45
     21  796  545 (S40E03 L= 63)   423    122        0 ( 739/ 517- 856/ 584)  -6.3 E08-W01 S41-S38
     22 1445  455 (S29W45 L=111)   820    185        1 (1355/ 432-1534/ 489)  38.7 W39-W50 S32-S24
     23 1600  388 (S27W63 L=129)   570     58        2 (1565/ 371-1637/ 409)  23.2 W59-W67 S28-S25
  

    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