Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1458 1681 (N30W50 L=296)   957    112        1 (1415/1630-1500/1716)  74.1 W46-W53 N26-N33
      2  536 1557 (N47E24 L=222)   390     56        2 ( 505/1536- 572/1577)  -8.1 E26-E19 N45-N49
      3 1416 1544 (N23W39 L=284)   475     77        1 (1380/1515-1459/1571) -59.0 W36-W40 N20-N25
      4  397 1527 (N49E39 L=206)   648     76        2 ( 365/1487- 427/1563)  53.1 E43-E35 N45-N51
      5  908 1465 (N31W04 L=249)  1031    263        2 ( 775/1440-1024/1483) -14.0 E05-W11 N28-N33
      6 1421 1426 (N16W34 L=279)   417    184        0 (1344/1382-1487/1475)   9.5 W27-W39 N15-N17
      7 1194 1194 (N09W13 L=259)  1362    321        2 (1079/1153-1357/1241) -13.2 W05-W22 N04-N12
      8 1802 1126 (S09W53 L=298)   336     43        1 (1779/1095-1817/1155) -90.0 W50-W54 S11-S07
      9 1921 1067 (S16W66 L=312)   531     67        0 (1900/1033-1935/1102)  31.0 W62-W69 S17-S13
     10  346 1005 (N16E44 L=202)  1116    200        2 ( 261/ 931- 418/1063) -36.9 E51-E38 N10-N20
     11  568  822 (N01E31 L=214)   218     83        0 ( 556/ 780- 580/ 861)  56.3 E32-E29 N00-N03
     12 1073  805 (S10E02 L=243)   347     82        2 (1048/ 761-1107/ 836)  76.0 E03-W00 S12-S08
     13 1050  665 (S18E07 L=239)   391     85        1 (1007/ 632-1091/ 701) -71.6 E08-E04 S20-S14
     14 1662  656 (S34W35 L=280)   681    131        2 (1598/ 622-1711/ 700)   5.7 W29-W39 S35-S31
     15  644  605 (S12E32 L=213)   255     86        0 ( 594/ 591- 685/ 626)  -9.5 E35-E29 S13-S11
     16  533  576 (S12E41 L=204)   353     99        0 ( 511/ 539- 564/ 613)  78.7 E42-E38 S14-S09
     17  643  509 (S18E36 L=209)   252     37        1 ( 627/ 485- 660/ 534)  45.0 E37-E34 S19-S16
     18  547  331 (S27E54 L=191)  1818    211        5 ( 460/ 286- 660/ 361)   0.0 E69-E43 S29-S24
     19  983  241 (S45E28 L=217)  1452    186        1 ( 898/ 196-1058/ 297)   9.5 E37-E19 S47-S41
  

    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