Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  884 1862 (N45E45 L=256)   575     61        1 ( 852/1844- 913/1880)  45.0 E48-E41 N42-N46
      2  778 1725 (N31E39 L=262)  1293    173        3 ( 714/1682- 850/1768)  -8.1 E46-E32 N27-N33
      3  454 1591 (N15E55 L=246)  2047    255        5 ( 384/1495- 509/1711) -61.9 E60-E50 N08-N23
      4  816 1540 (N20E27 L=275)   581    166        1 ( 790/1447- 841/1604) -65.6 E29-E24 N13-N24
      5  323 1530 (N09E65 L=237)   632    111        3 ( 295/1483- 348/1580) -60.3 E67-E61 N05-N12
      6  661 1459 (N12E33 L=268)   273    121        0 ( 625/1403- 692/1487) -29.7 E36-E29 N08-N12
      7 1654 1256 (N26W34 L=335)  1962    480        0 (1580/1120-1737/1414) -43.0 W26-W42 N19-N34
      8 1851 1025 (N19W57 L=358)  4215    523        6 (1760/ 812-1917/1256) -47.6 W44-W68 N07-N31
      9  362 1210 (S09E47 L=255)   342    101        0 ( 343/1159- 392/1254)  80.5 E47-E44 S12-S06
     10 1344 1193 (N13W14 L=315)   202     67        0 (1327/1155-1366/1221) -45.0 W12-W15 N11-N14
     11  220 1084 (S19E58 L=244)   635    151        0 ( 202/1034- 252/1152)  90.0 E59-E53 S22-S14
     12 1331 1040 (N04W17 L=318)   701    232        1 (1242/ 979-1375/1139)  76.0 W13-W18 S01-N11
     13 1796  967 (N14W52 L=353)   561    116        1 (1775/ 913-1814/1001)  90.0 W49-W54 N10-N16
     14 1766  762 (N02W56 L=357)   965    125        2 (1714/ 731-1820/ 805)   0.0 W49-W62 N00-N03
     15  764  687 (S30E07 L=294)   368    157        0 ( 698/ 644- 827/ 712)  45.0 E10-E02 S34-S27
     16  318  595 (S49E48 L=253)  2313    232        3 ( 234/ 524- 419/ 669)  -9.5 E60-E35 S52-S44
     17 1630  625 (S10W50 L=351)   349     64        0 (1608/ 602-1646/ 658)  90.0 W48-W51 S11-S07
     18 1465  601 (S16W39 L=340)   791    208        0 (1380/ 580-1560/ 632)  17.1 W33-W46 S18-S13
     19 1730  563 (S10W63 L=  4)   450     71        0 (1699/ 539-1772/ 589)  38.7 W60-W66 S11-S07
     20 1254  252 (S43W49 L=350)  1708    194        2 (1179/ 215-1346/ 301)  28.3 W39-W58 S46-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