Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  520 1713 (N22E61 L=231)  4372    517        7 ( 383/1552- 675/1867) -74.6 E71-E55 N08-N37
      2  916 1758 (N35E34 L=258)  2405    420        1 ( 781/1627-1000/1823)  -5.4 E43-E21 N28-N40
      3  593 1660 (N20E49 L=242)   544    121        0 ( 572/1608- 613/1720) -45.0 E54-E46 N16-N23
      4  204 1246 (S13E65 L=226)  3798    311        9 ( 156/1132- 253/1364) -70.3 E74-E60 S19-S05
      5 1637 1108 (N17W35 L=326)   712    291        1 (1605/ 992-1682/1237) -47.5 W29-W40 N12-N24
      6 1475 1003 (N06W26 L=317)   253     93        0 (1462/ 958-1489/1043) -68.2 W25-W27 N03-N08
      7  720  986 (S16E16 L=275)   191     38        1 ( 707/ 962- 735/1014) -33.7 E17-E14 S17-S14
      8  238  838 (S37E55 L=236)  1416    160        1 ( 184/ 783- 283/ 909)  33.7 E65-E49 S41-S31
      9 1816  829 (N08W59 L=350)   833     80        1 (1790/ 787-1843/ 862)  59.0 W56-W61 N05-N10
     10  430  821 (S33E34 L=258)   536     86        1 ( 389/ 792- 478/ 856)   7.1 E37-E29 S34-S31
     11 1192  810 (S12W16 L=307)   625    235        0 (1109/ 757-1283/ 848)  15.3 W11-W22 S16-S10
     12 1866  766 (N07W68 L=360)   777     78        2 (1840/ 735-1893/ 791)  39.8 W65-W73 N04-N09
     13 1130  462 (S34W26 L=318)   376     99        1 (1079/ 440-1181/ 481)  39.8 W23-W29 S36-S31
  

    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