Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1255 1811 (N45W54 L= 75)  1087    177        1 (1172/1770-1312/1833) -49.4 W47-W62 N40-N48
      2 1375 1547 (N25W39 L= 60)   259    103        0 (1329/1538-1424/1557) -15.9 W35-W42 N23-N27
      3 1271 1454 (N24W28 L= 49)   375     71        2 (1238/1429-1295/1483)  11.3 W25-W30 N21-N25
      4 1082 1423 (N27W15 L= 36)   292     67        0 (1063/1389-1108/1452)  45.0 W13-W17 N25-N28
      5 1788 1315 (S00W60 L= 81)   420     35        0 (1762/1299-1814/1331)   0.0 W56-W63 S01-N00
      6 1018 1222 (N18W05 L= 26)   687    197        1 ( 973/1129-1081/1291)  35.0 W00-W10 N13-N20
      7 1396 1235 (N08W27 L= 48)   208     38        0 (1377/1215-1414/1261)  33.7 W25-W28 N07-N09
      8  815 1232 (N24E07 L= 14)   230     61        0 ( 778/1215- 855/1253) -36.9 E08-E04 N22-N25
      9  651 1134 (N22E19 L=  1)   589    198        1 ( 558/1084- 722/1165) -41.6 E25-E15 N17-N25
     10  412 1023 (N21E39 L=342)   420     97        3 ( 390/ 987- 448/1068) -51.3 E41-E36 N19-N24
     11 1728  940 (S18W42 L= 63)   822    208        1 (1638/ 914-1830/ 964) -18.4 W34-W52 S22-S14
     12 1350  887 (S10W15 L= 36)   360     83        0 (1316/ 841-1378/ 929)  33.7 W11-W17 S11-S07
     13  474  854 (N10E38 L=343)   261    102        0 ( 453/ 819- 503/ 899) -71.6 E38-E36 N07-N13
     14  218  777 (N10E64 L=317)   615     95        0 ( 195/ 739- 247/ 828) -63.4 E66-E61 N07-N13
     15 1230  631 (S21W01 L= 22)   252     60        2 (1209/ 603-1251/ 669)  45.0 W00-W03 S22-S19
     16  871  573 (S15E21 L=360)   596    190        1 ( 836/ 485- 923/ 645)  38.7 E26-E16 S19-S11
     17  744  494 (S17E32 L=349)   277    107        0 ( 690/ 480- 794/ 510) -38.7 E35-E29 S18-S14
     18  641  421 (S19E42 L=338)   418    114        0 ( 626/ 373- 663/ 473)  54.5 E44-E38 S22-S15
     19  936  379 (S29E25 L=356)   672    120        2 ( 895/ 334- 983/ 416)  24.0 E30-E21 S31-S27
     20  580  355 (S22E52 L=329)   942     88        2 ( 535/ 321- 612/ 392) -45.0 E56-E47 S24-S19
     21  532  312 (S24E61 L=320)   576     92        1 ( 500/ 268- 556/ 348)  54.5 E64-E57 S28-S21
  

    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