Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  875 1568 (N43E01 L=156)   353     55        1 ( 845/1546- 909/1588) -45.0 E03-W01 N41-N45
      2 1745 1492 (N20W67 L=224)  4236    487       11 (1650/1427-1827/1549) -20.0 W61-W74 N14-N26
      3 1383 1345 (N19W29 L=186)   495    167        3 (1332/1287-1445/1373)  12.5 W26-W31 N15-N22
      4  378 1274 (N30E45 L=112)   395    125        0 ( 329/1259- 423/1287)  -5.7 E50-E40 N28-N31
      5  811 1135 (N16E12 L=145)   394     80        3 ( 784/1078- 835/1183) -90.0 E13-E11 N12-N19
      6 1276 1051 (N04W16 L=172)   244     58        1 (1240/1035-1306/1071) -14.0 W14-W17 N03-N06
      7 1850  912 (S16W61 L=217)  1032    186        5 (1812/ 851-1876/ 968)  74.1 W56-W66 S21-S12
      8 1309  925 (S04W16 L=172)   646    148        2 (1236/ 894-1379/ 951) -24.0 W12-W20 S07-S01
      9 1785  910 (S14W53 L=209)   403     83        2 (1767/ 868-1802/ 946)  68.2 W51-W55 S18-S12
     10 1299  608 (S24W12 L=168)  2173    509        5 (1149/ 451-1406/ 825)  47.9 W05-W20 S38-S07
     11 1712  782 (S21W46 L=202)   798    159        1 (1670/ 754-1746/ 815)  -7.1 W41-W50 S24-S18
     12  967  532 (S23E12 L=144)   424    170        0 ( 953/ 464- 983/ 613)  70.0 E11-E13 S29-S18
     13  494  450 (S23E52 L=105)   866    145        0 ( 443/ 418- 543/ 486)   4.8 E54-E49 S26-S20
  

    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