Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  824 1671 (N46E20 L=128)  2984    533        8 ( 689/1577- 995/1732)  14.0 E31-E04 N38-N51
      2 1185 1629 (N44W12 L=160)   505    104        4 (1146/1593-1226/1664)  45.0 W08-W16 N40-N46
      3 1499 1596 (N41W39 L=187)   341     71        1 (1480/1568-1525/1617) -56.3 W36-W41 N39-N43
      4 1587 1541 (N37W45 L=193)   445    103        2 (1550/1524-1626/1562)   0.0 W40-W48 N35-N38
      5  830 1324 (N21E14 L=135)   568    115        2 ( 788/1285- 880/1380) -39.8 E16-E10 N18-N24
      6  729 1219 (N14E19 L=129)   401     97        3 ( 686/1191- 770/1242)  -9.5 E22-E16 N12-N15
      7  374 1185 (N11E45 L=103)   381    129        0 ( 349/1127- 407/1235) -50.2 E47-E41 N07-N13
      8  725 1140 (N09E19 L=129)   593    224        1 ( 658/1096- 838/1202) -21.0 E24-E11 N06-N12
      9  879 1173 (N12E09 L=139)   237     35        0 ( 862/1146- 894/1202)  90.0 E10-E08 N10-N13
     10 1111  897 (S05W06 L=154)   369    119        0 (1091/ 834-1128/ 957)  90.0 W04-W06 S08-N00
     11  215  823 (S13E61 L= 88)  1820    314        6 ( 144/ 756- 272/ 904) -33.7 E70-E54 S16-S08
     12 1438  779 (S11W27 L=176)   249     62        0 (1413/ 742-1465/ 812)  53.1 W25-W29 S13-S09
     13  426  437 (S39E49 L= 99)  1752    409        1 ( 358/ 381- 492/ 500)  28.8 E61-E41 S44-S33
     14 1257  393 (S39W20 L=169)   675    200        0 (1165/ 368-1361/ 418)  14.9 W13-W28 S41-S36
     15 1088  355 (S42W07 L=156)   311     33        1 (1063/ 342-1115/ 372) -26.6 W05-W09 S43-S40
  

    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