Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1764 1523 (N17W67 L=188)  1143     66        0 (1726/1485-1795/1554) -68.2 W62-W71 N14-N19
      2  504 1389 (N31E29 L= 92)  1130    225        1 ( 454/1297- 573/1475)  42.0 E33-E23 N25-N36
      3  847 1415 (N27E04 L=117)   471    143        0 ( 803/1345- 896/1465) -71.6 E06-E02 N21-N30
      4 1329 1435 (N20W26 L=147)   572     83        2 (1274/1406-1372/1460) -31.0 W23-W29 N17-N21
      5 1121 1416 (N22W13 L=134)   665    165        0 (1040/1379-1203/1449) -37.9 W08-W17 N18-N25
      6  276 1295 (N29E50 L= 71)  1842    232        4 ( 177/1246- 391/1341) -14.5 E65-E38 N24-N33
      7 1522 1239 (N05W34 L=155)   214     31        0 (1499/1222-1549/1258) -33.7 W32-W35 N03-N06
      8  812 1158 (N12E10 L=111)   667    225        2 ( 731/1087- 871/1234)  31.0 E15-E05 N08-N15
      9 1534 1070 (S05W31 L=153)   608    168        1 (1508/ 987-1554/1157)  60.9 W28-W33 S09-N00
     10  541 1112 (N14E28 L= 93)   228     47        0 ( 521/1095- 568/1137) -45.0 E29-E26 N12-N15
     11 1834 1018 (S13W56 L=177)  1612    214        5 (1784/ 927-1876/1089)  60.9 W51-W61 S17-S08
     12 1735  964 (S14W46 L=167)   994    144        1 (1705/ 888-1780/1027)  45.0 W42-W50 S18-S11
     13 1921  923 (S20W68 L=189)  2111    117        5 (1883/ 865-1955/ 972)  66.8 W61-W75 S24-S17
     14  448  903 (N03E38 L= 83)   434    106        2 ( 391/ 885- 508/ 923) -14.0 E41-E33 N01-N03
     15 1146  831 (S12W04 L=125)   214     90        0 (1107/ 803-1179/ 869)  31.0 W01-W06 S13-S10
     16  369  763 (S04E47 L= 74)   658    155        1 ( 336/ 701- 401/ 837) -81.9 E48-E44 S07-N00
     17  280  795 (S01E54 L= 67)   328     75        0 ( 252/ 763- 304/ 831) -45.0 E55-E51 S02-N01
     18 1546  806 (S21W29 L=150)   224     30        1 (1529/ 784-1563/ 825)  45.0 W28-W30 S21-S19
     19  153  781 (N00E70 L= 51)   729     71        0 ( 130/ 745- 187/ 805)  10.3 E75-E63 S01-N01
     20  287  686 (S07E57 L= 64)  2805    272        7 ( 226/ 600- 372/ 792) -59.7 E64-E50 S12-N00
     21 1334  758 (S20W14 L=135)   223     43        0 (1306/ 739-1364/ 777)  14.0 W12-W16 S20-S18
     22  452  706 (S09E42 L= 79)   267     73        0 ( 425/ 684- 470/ 745)  45.0 E44-E39 S09-S06
     23 1476  676 (S27W24 L=145)   448    111        0 (1425/ 662-1541/ 691)  -6.3 W19-W28 S28-S25
     24  380  412 (S25E64 L= 57)  1157    125        1 ( 347/ 360- 417/ 474)  17.7 E77-E55 S28-S21
     25 1263  262 (S55W03 L=124)  1434    225        1 (1166/ 217-1367/ 307)   8.1 E08-W13 S57-S52
     26  867  254 (S46E32 L= 89)   369     55        0 ( 839/ 241- 909/ 269)   0.0 E35-E28 S47-S44
  

    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