Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1409 1711 (N45W47 L=226)  1281    221        1 (1325/1662-1504/1763)   2.0 W37-W65 N42-N46
      2  485 1675 (N54E51 L=127)   431     59        0 ( 468/1643- 508/1699) -78.7 E54-E48 N51-N56
      3 1019 1598 (N43W07 L=186)   305     72        0 ( 987/1577-1057/1621) -45.0 W04-W09 N40-N44
      4 1177 1459 (N31W16 L=194)   909    174        3 (1095/1413-1250/1511) -35.0 W10-W20 N27-N34
      5 1745 1435 (N21W62 L=240)   499     63        1 (1713/1415-1776/1461) -15.9 W58-W65 N19-N22
      6  355 1354 (N31E49 L=129)  1985    361        4 ( 207/1319- 519/1393)   1.6 E68-E33 N28-N33
      7 1768 1312 (N13W58 L=237)   741    142        1 (1709/1278-1834/1343) -24.4 W52-W65 N09-N15
      8  207 1196 (N21E63 L=116)  1598    192        1 ( 173/1118- 240/1287) -35.5 E71-E57 N16-N26
      9  115 1049 (N12E76 L=102)   987     50        3 (  97/1019- 131/1077) -45.0 E81-E72 N10-N13
     10  549  956 (N05E31 L=148)   419    100        1 ( 520/ 907- 578/1009) -63.4 E32-E28 N02-N08
     11  998  940 (N01E02 L=176)   290    111        0 ( 983/ 892-1019/ 994)  53.1 E03-W00 S01-N03
     12 1681  838 (S14W42 L=221)   457    103        0 (1644/ 795-1709/ 890)  45.0 W39-W44 S16-S10
     13 1278  861 (S07W14 L=192)   279     74        1 (1238/ 830-1306/ 882)   0.0 W11-W15 S08-S05
     14  528  712 (S09E36 L=143)   419    136        0 ( 488/ 658- 557/ 764) -74.1 E37-E33 S12-S05
     15  389  665 (S12E48 L=130)   319     30        1 ( 370/ 646- 413/ 688) -45.0 E50-E45 S13-S10
     16  422  585 (S17E48 L=131)   870    116        3 ( 382/ 544- 482/ 622) -20.6 E50-E42 S19-S14
     17  906  547 (S23E13 L=165)   596    121        1 ( 859/ 498- 949/ 603)  54.5 E16-E09 S26-S19
     18 1099  423 (S34E02 L=177)  3058    541        6 ( 920/ 344-1240/ 591)  19.2 E14-W09 S40-S23
     19  505  437 (S28E47 L=132)   611     76        0 ( 473/ 412- 548/ 467) -31.0 E49-E43 S29-S25
     20 1541  328 (S51W42 L=220)   938     94        1 (1498/ 310-1593/ 349)   0.0 W35-W50 S52-S48
     21 1285  245 (S54W14 L=192)  1988    265        4 (1179/ 206-1410/ 303)   4.6 W02-W27 S57-S49
  

    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