Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1502 1781 (N33W70 L= 80)   860    114        0 (1458/1760-1558/1806) -50.2 W66-W74 N29-N35
      2 1432 1715 (N32W54 L= 65)   407     76        1 (1405/1692-1463/1745) -90.0 W52-W56 N29-N34
      3  601 1616 (N53E14 L=356)  2146    417        4 ( 419/1521- 763/1688)   0.0 E36-W02 N50-N55
      4 1128 1440 (N25W18 L= 28)   447    109        1 (1089/1394-1154/1481) -90.0 W16-W19 N22-N28
      5  436 1331 (N37E33 L=337)   685    152        2 ( 383/1272- 482/1358) -48.8 E38-E28 N32-N40
      6 1187 1260 (N14W15 L= 26)   489     96        2 (1151/1229-1240/1291) -45.0 W13-W18 N11-N15
      7  247 1003 (N21E54 L=316)  1761    316        2 ( 144/ 895- 356/1092) -35.5 E67-E45 N13-N28
      8  198  860 (N14E63 L=307)  4618    430        6 (  97/ 704- 288/1040) -56.3 E78-E52 N04-N25
      9 1897  993 (S22W62 L= 73)   687     94        0 (1855/ 970-1935/1020) -22.6 W57-W69 S24-S18
     10 1131  730 (S14E01 L=  9)   937    341        2 (1041/ 594-1224/ 865)  34.5 E10-W06 S20-S08
     11 1327  652 (S24W08 L= 18)  1155    297        4 (1199/ 566-1410/ 750)  14.0 E01-W15 S26-S19
     12  877  617 (S14E19 L=351)   346    117        0 ( 836/ 588- 927/ 656) -63.4 E20-E16 S17-S11
     13 1545  520 (S41W22 L= 32)   316     32        1 (1524/ 496-1565/ 540) -76.0 W19-W23 S42-S38
     14  460  498 (S12E52 L=318)   365    129        0 ( 419/ 468- 516/ 534) -45.0 E53-E48 S14-S09
     15  574  295 (S28E58 L=312)   717    105        1 ( 552/ 243- 607/ 330)  21.8 E66-E51 S31-S25
  

    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