Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  673 1704 (N60E03 L= 63)  1176    272        2 ( 573/1649- 797/1776)   3.8 E16-W14 N57-N63
      2 1003 1746 (N50W29 L= 94)   292     82        1 ( 976/1717-1035/1776)   6.3 W24-W33 N48-N51
      3  485 1636 (N62E30 L= 35)   743     72        2 ( 456/1604- 514/1669)  39.8 E34-E25 N59-N64
      4 1198 1526 (N29W27 L= 92)   415    187        0 (1118/1481-1274/1565) -59.0 W23-W29 N24-N34
      5  626 1430 (N41E15 L= 51)   554    176        1 ( 587/1355- 675/1492) -70.0 E17-E12 N34-N45
      6  990 1365 (N26W08 L= 73)   496    196        0 ( 892/1339-1074/1381) -37.9 W02-W12 N22-N29
      7  648 1178 (N25E19 L= 47)  1124    208        4 ( 576/1087- 695/1252)  73.3 E22-E16 N18-N28
      8 1883 1234 (S09W68 L=133)   574     55        1 (1855/1214-1911/1251) -10.3 W63-W74 S09-S07
      9  777 1111 (N18E12 L= 54)  1014    338        5 ( 689/ 994- 872/1206) -68.2 E15-E08 N09-N24
     10  487 1033 (N20E33 L= 33)   514    148        0 ( 425/ 995- 557/1057) -33.7 E37-E28 N16-N22
     11 1598  807 (S22W29 L= 94)  1927    668        1 (1389/ 674-1794/ 981)   7.7 W11-W49 S26-S18
     12  945  506 (S21E19 L= 46)   576    104        0 ( 894/ 468- 991/ 542)  14.0 E23-E15 S22-S19
     13  406  472 (S11E59 L=  7)   436     50        0 ( 384/ 442- 424/ 497) -90.0 E60-E56 S13-S09
     14  812  314 (S30E38 L= 28)   308    109        0 ( 758/ 294- 850/ 346)   5.7 E42-E32 S31-S29
     15  825  170 (S43E52 L= 14)   694     81        0 ( 792/ 134- 863/ 204)  15.5 E62-E44 S45-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