Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1452 1685 (N35W51 L=169)   752    174        1 (1382/1659-1511/1703) -21.8 W45-W55 N32-N37
      2  867 1524 (N41W02 L=119)   709    119        3 ( 829/1480- 905/1561) -80.5 E01-W04 N37-N43
      3 1329 1212 (N11W22 L=140)  2609    732        5 ( 999/ 979-1546/1408) -54.8 W07-W31 S06-N30
      4  618 1280 (N30E21 L= 96)  1085    278        0 ( 520/1192- 714/1369) -35.3 E28-E15 N23-N38
      5  339 1253 (N34E45 L= 73)   306     81        0 ( 312/1226- 367/1275) -26.6 E47-E41 N31-N35
      6 1912 1086 (S13W67 L=185)   741     49        0 (1894/1062-1929/1115)  33.7 W64-W70 S14-S11
      7  380 1019 (N18E43 L= 75)   349    124        1 ( 354/ 969- 410/1084) -74.1 E43-E40 N15-N22
      8 1854 1013 (S15W58 L=175)   769    128        5 (1833/ 967-1877/1067)  71.6 W55-W60 S17-S11
      9 1485  779 (S18W23 L=141)   690    153        1 (1428/ 714-1522/ 823) -54.5 W19-W25 S22-S14
     10  688  574 (S13E31 L= 87)   449     80        1 ( 666/ 533- 716/ 610)  59.0 E33-E28 S15-S10
     11  401  493 (S14E56 L= 61)  1844    294        3 ( 373/ 390- 430/ 587)  49.8 E62-E49 S21-S08
     12 1184  395 (S36E05 L=113)  1204    195        3 (1123/ 330-1222/ 475)  36.0 E11-W00 S40-S30
     13  740  359 (S29E36 L= 82)   611    107        0 ( 689/ 338- 784/ 393)  -8.1 E39-E31 S30-S26
     14  532  360 (S25E52 L= 65)   463     90        0 ( 505/ 343- 568/ 377)   0.0 E54-E48 S26-S23
  

    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