Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  416 1441 (N18E49 L=171)   642    187        1 ( 403/1348- 441/1508) -63.4 E52-E46 N12-N22
      2 1412 1416 (N30W22 L=242)   452     84        1 (1369/1374-1453/1452) -26.6 W18-W24 N27-N32
      3 1134 1398 (N25W02 L=222)   235     82        2 (1117/1354-1155/1440)  90.0 W01-W03 N22-N28
      4  245 1169 (S01E58 L=162)   430     87        2 ( 226/1131- 267/1201)  90.0 E60-E55 S03-N01
      5 1740  862 (S00W52 L=272)  4699    834       14 (1666/ 561-1823/1166) -82.3 W44-W62 S19-N18
      6 1672 1122 (N14W42 L=263)   390     89        1 (1638/1090-1702/1145) -77.0 W39-W45 N12-N16
      7  242  917 (S16E55 L=165)  1287    220        4 ( 213/ 830- 274/1006) -79.7 E58-E51 S21-S10
      8  190  873 (S20E61 L=159)  1275    232        7 ( 161/ 820- 222/ 915)  60.3 E64-E57 S23-S16
      9  666  766 (S20E20 L=200)   382    144        0 ( 610/ 734- 738/ 813)  -6.3 E23-E14 S21-S17
     10 1481  722 (S12W34 L=254)  1425    394        4 (1353/ 643-1593/ 803)  31.0 W26-W42 S18-S06
     11 1507  656 (S16W37 L=258)   675    152        3 (1455/ 617-1576/ 689)  35.5 W33-W42 S18-S13
     12  979  572 (S28W03 L=224)   380     68        3 ( 949/ 542-1010/ 608)  53.1 W01-W05 S30-S25
     13  461  568 (S37E37 L=184)   317     89        1 ( 425/ 551- 487/ 591)   9.5 E40-E34 S37-S34
     14 1343  537 (S26W29 L=249)   306    101        1 (1327/ 507-1373/ 579) -51.3 W27-W31 S27-S22
     15 1491  424 (S32W45 L=265)   451     95        1 (1454/ 408-1534/ 448)  18.4 W41-W48 S32-S29
  

    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