Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1342 1630 (N38W04 L=274)  1604    360        5 (1268/1537-1469/1734) -21.3 E03-W15 N32-N45
      2  973 1601 (N25E19 L=251)   398     97        0 ( 955/1550- 987/1647) -50.2 E21-E16 N22-N28
      3  704 1522 (N14E32 L=238)  1099    230        0 ( 683/1428- 730/1628) -50.2 E37-E27 N08-N20
      4  259 1477 (N04E68 L=202)   534     87        0 ( 231/1462- 288/1491)  15.9 E71-E64 N03-N05
      5 1320 1416 (N23W08 L=277)   326     58        0 (1305/1379-1335/1455) -68.2 W06-W09 N20-N25
      6  825 1340 (N06E19 L=251)   618    147        1 ( 749/1299- 891/1392)  -5.7 E24-E14 N03-N07
      7 1306 1159 (N07W13 L=282)  1127    269        1 (1272/1013-1338/1294) -57.3 W07-W17 N00-N14
      8  154 1133 (S18E65 L=204)  5133    629        7 (  98/1023- 216/1235) -85.6 E73-E58 S24-S11
      9  487  927 (S25E31 L=238)   854    287        0 ( 373/ 887- 590/ 977)  33.7 E39-E24 S29-S19
     10 1391  901 (S05W24 L=293)   221     33        0 (1371/ 877-1409/ 922)  63.4 W22-W25 S05-S03
     11  191  813 (S37E57 L=213)  1447    386        3 ( 131/ 761- 279/ 854)  20.6 E63-E47 S40-S33
     12 1882  763 (N04W69 L=339)   853    163        1 (1854/ 730-1911/ 813) -51.3 W66-W74 N01-N06
     13 1492  604 (S18W40 L=310)   314     78        0 (1452/ 592-1534/ 616)  45.0 W38-W43 S19-S15
     14 1568  491 (S21W52 L=321)   993    137        0 (1512/ 441-1610/ 563)  90.0 W49-W53 S25-S16
  

    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