Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  486 1619 (N23E50 L= 44)  1521    242        4 ( 444/1516- 521/1719) -43.2 E61-E45 N15-N30
      2  329 1605 (N21E67 L= 27)   712     54        0 ( 314/1571- 346/1639) -35.5 E73-E63 N18-N23
      3  954 1589 (N27E15 L= 79)   557    153        1 ( 887/1533-1002/1627) -24.0 E19-E10 N24-N29
      4  361 1518 (N15E56 L= 38)   710    121        1 ( 310/1497- 422/1543)   0.0 E63-E50 N13-N16
      5  299 1458 (N11E60 L= 34)   463     79        1 ( 281/1413- 318/1490)  90.0 E62-E58 N07-N12
      6  323 1152 (S08E49 L= 46)  1307    231        2 ( 273/1072- 381/1251)  61.4 E52-E44 S12-S01
      7  385  937 (S20E41 L= 53)  1332    380        3 ( 348/ 772- 419/1118) -84.6 E44-E38 S30-S09
      8  320 1048 (S14E48 L= 47)   266     50        1 ( 298/1028- 337/1072)  56.3 E49-E45 S15-S12
      9 1842 1011 (N09W57 L=151)   536     84        0 (1825/ 985-1875/1049) -18.4 W54-W61 N07-N10
     10  474  977 (S17E34 L= 60)   353     62        0 ( 449/ 952- 504/1004) -26.6 E36-E32 S18-S15
     11 1824  873 (N00W58 L=152)   413     45        1 (1809/ 842-1839/ 903) -45.0 W56-W59 S01-N02
     12  552  768 (S29E27 L= 67)   860    208        0 ( 520/ 674- 578/ 869)  76.0 E30-E25 S34-S22
     13  250  746 (S33E57 L= 37)   400     63        2 ( 216/ 726- 281/ 765)  -7.1 E61-E53 S34-S32
     14 1746  675 (S12W57 L=152)   328     87        0 (1725/ 633-1762/ 720) -80.5 W56-W58 S15-S09
     15 1342  407 (S38W38 L=132)   330     50        1 (1317/ 375-1364/ 437) -53.1 W36-W40 S39-S35
  

    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