Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1521 1632 (N31W45 L=203)   464    104        0 (1499/1591-1549/1659)  33.7 W41-W48 N28-N33
      2 1239 1608 (N33W23 L=181)   246     57        2 (1218/1574-1259/1636)  78.7 W21-W24 N30-N35
      3 1726 1411 (N15W54 L=212)   559    168        1 (1691/1343-1769/1445)  63.4 W50-W59 N10-N16
      4  235 1421 (N33E56 L=101)   603    140        1 ( 201/1407- 274/1436)  -7.1 E60-E51 N32-N34
      5  205 1162 (N17E57 L=101)  1744    374        5 ( 139/1094- 244/1272)  48.0 E64-E52 N12-N23
      6  400 1228 (N19E39 L=119)   306     77        1 ( 364/1207- 435/1245) -18.4 E41-E35 N17-N20
      7  481 1097 (N10E33 L=125)   471    138        1 ( 429/1049- 525/1156) -49.4 E36-E30 N06-N13
      8  113 1058 (N12E69 L= 89)  1244    202        3 (  87/1026- 143/1100) -51.3 E74-E64 N09-N14
      9  655  991 (N01E23 L=135)   532    122        2 ( 621/ 933- 685/1056)  63.4 E25-E20 S01-N05
     10 1085  643 (S24E01 L=157)   466    128        0 (1015/ 626-1154/ 666)   0.0 E05-W03 S25-S22
     11  352  566 (S20E54 L=104)   496    100        0 ( 336/ 531- 367/ 614)  45.0 E56-E51 S22-S17
     12  327  525 (S22E58 L= 99)   471    123        0 ( 303/ 478- 346/ 582)  81.9 E60-E56 S25-S18
     13  980  398 (S40E12 L=145)   759    150        1 ( 920/ 355-1043/ 453)  28.6 E17-E06 S42-S36
     14  615  392 (S35E40 L=118)   449    113        0 ( 593/ 350- 637/ 437)  50.2 E43-E37 S37-S31
  

    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