Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  763 1823 (N62E38 L= 12)   782    113        1 ( 716/1802- 815/1840)  -7.8 E49-E27 N59-N63
      2 1026 1352 (N24E00 L= 50)   728    273        2 ( 945/1278-1138/1428) -30.3 E05-W07 N19-N29
      3 1737 1400 (N26W58 L=108)   574     84        1 (1699/1378-1784/1415)  -5.2 W53-W64 N24-N27
      4 1716  852 (S08W49 L= 99)  1040    185        2 (1627/ 824-1783/ 885)  -3.8 W40-W55 S09-S05
      5  246  840 (S10E58 L=352)   358     49        1 ( 230/ 819- 274/ 861) -26.6 E60-E54 S11-S08
      6 1199  754 (S13W11 L= 61)   308    142        0 (1168/ 724-1246/ 806) -63.4 W09-W14 S15-S09
      7 1296  734 (S15W18 L= 68)   427    147        1 (1229/ 698-1332/ 777)  39.8 W13-W19 S16-S11
      8  641  688 (S18E25 L= 24)   952    199        2 ( 572/ 626- 719/ 730)  30.3 E31-E19 S22-S15
      9 1198  679 (S18W12 L= 61)   206     30        1 (1177/ 660-1218/ 698) -45.0 W10-W12 S19-S16
     10  255  594 (S27E67 L=342)  1428    110        3 ( 226/ 535- 276/ 634)  45.0 E72-E62 S31-S23
     11 1277  571 (S26W18 L= 68)  1164    444        3 (1102/ 527-1456/ 622)   9.1 W05-W30 S28-S22
     12 1593  545 (S28W44 L= 94)   469    114        0 (1554/ 505-1635/ 593)  56.3 W41-W47 S30-S24
     13  344  495 (S34E61 L=349)  1098     80        2 ( 317/ 458- 369/ 538)  33.7 E66-E55 S36-S30
  

    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