Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  877 1863 (N45E46 L=256)   484     60        0 ( 849/1846- 903/1880)  45.0 E49-E42 N42-N46
      2  764 1732 (N31E41 L=261)  1348    170        3 ( 705/1687- 838/1790) -12.5 E50-E32 N28-N34
      3  442 1600 (N15E57 L=245)  2377    203        8 ( 377/1515- 504/1688) -63.4 E64-E51 N09-N21
      4  327 1546 (N10E65 L=237)  1140    185        5 ( 283/1468- 386/1614) -84.3 E68-E62 N04-N14
      5  805 1544 (N20E28 L=275)   485    105        0 ( 790/1482- 823/1594) -63.4 E29-E25 N15-N23
      6  655 1457 (N11E34 L=269)   265    103        1 ( 618/1408- 680/1490) -29.7 E37-E30 N08-N12
      7 1649 1251 (N26W34 L=336)  1707    476        1 (1569/1115-1728/1410) -43.0 W25-W41 N19-N33
      8 1800 1228 (N29W49 L=351)   867    113        2 (1755/1173-1832/1261) -18.4 W43-W53 N26-N31
      9  355 1215 (S09E47 L=255)   359    103        0 ( 335/1164- 389/1259)  80.5 E48-E45 S12-S06
     10  211 1085 (S19E59 L=243)   576    136        0 ( 194/1038- 239/1148) -81.9 E61-E54 S22-S15
     11 1323 1049 (N05W16 L=318)   588    205        2 (1254/ 985-1363/1145)  79.7 W13-W17 N00-N11
     12 1748 1040 (N16W46 L=348)   312     56        1 (1718/1020-1772/1067)  53.1 W43-W48 N14-N18
     13 1865  955 (N15W60 L=  2)  2080    186        4 (1813/ 872-1911/1050) -33.7 W52-W67 N10-N19
     14 1790  974 (N14W51 L=353)   444    112        1 (1766/ 930-1808/1004) -68.2 W48-W53 N11-N16
     15 1764  767 (N02W55 L=358)   970    146        1 (1710/ 736-1829/ 810)   8.1 W48-W62 N00-N04
     16  768  701 (S29E07 L=295)   297    107        0 ( 725/ 676- 820/ 716)  33.7 E09-E03 S31-S27
     17  312  597 (S49E49 L=253)  2141    235        3 ( 230/ 529- 409/ 673) -12.8 E61-E36 S52-S44
     18 1509  612 (S14W42 L=344)   957    295        1 (1374/ 586-1644/ 650)  30.5 W32-W50 S18-S07
     19 1725  566 (S10W62 L=  4)   467     73        1 (1690/ 538-1769/ 591)  33.7 W59-W66 S11-S07
     20 1235  260 (S43W47 L=349)  1743    205        2 (1137/ 222-1334/ 322)  23.6 W37-W56 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