Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1507 1629 (N31W44 L=203)   412    120        1 (1481/1589-1537/1657)  33.7 W40-W47 N28-N33
      2 1716 1399 (N14W53 L=212)   686    171        0 (1685/1336-1762/1440)  63.4 W50-W58 N10-N16
      3  225 1420 (N34E58 L=101)   584    137        1 ( 192/1408- 264/1435) -12.5 E61-E52 N32-N34
      4  155 1139 (N16E62 L= 96)  2905    431        5 (  82/1025- 240/1275)  31.8 E75-E53 N10-N24
      5  439 1145 (N13E36 L=123)   929    311        2 ( 355/1030- 521/1244) -53.7 E42-E30 N05-N20
      6  216 1141 (N16E56 L=103)  1001    195        2 ( 184/1093- 259/1185)  29.7 E59-E51 N12-N18
      7  641  994 (N02E23 L=135)   553    139        1 ( 607/ 928- 663/1063)  50.2 E26-E21 S01-N05
      8 1720  955 (S12W45 L=204)   398    137        2 (1670/ 925-1761/ 995)  20.6 W40-W49 S13-S10
      9 1623  706 (S27W37 L=196)   243     85        1 (1583/ 685-1661/ 731)  18.4 W34-W40 S27-S25
     10 1072  641 (S24E02 L=157)   418    137        0 (1004/ 622-1140/ 669)   0.0 E05-W03 S25-S22
     11  338  552 (S21E56 L=103)   823    166        2 ( 300/ 492- 362/ 613)  60.3 E60-E52 S24-S17
     12 1551  522 (S38W33 L=192)   345     88        1 (1529/ 483-1568/ 562) -63.4 W31-W35 S41-S35
     13  966  396 (S40E14 L=145)   851    176        2 ( 902/ 353-1031/ 454)  22.6 E19-E07 S42-S36
  

    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