Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1500 1412 (N13W40 L=341)   445    180        0 (1452/1361-1577/1453)   0.0 W35-W46 N11-N13
      2  288 1152 (N31E46 L=255)  1321    317        2 ( 213/1065- 373/1238) -45.0 E53-E39 N24-N37
      3 1136 1052 (N04W07 L=308)   398    119        1 (1093/1011-1190/1100)  23.2 W03-W11 N02-N05
      4  993 1066 (N09E01 L=301)   530    166        1 ( 907/1043-1063/1081) -40.6 E05-W03 N05-N11
      5  695 1017 (N13E19 L=283)   538    199        1 ( 627/ 989- 766/1039)  -6.3 E23-E14 N12-N15
      6  435  926 (N14E38 L=263)   383    156        0 ( 374/ 906- 491/ 950) -24.0 E42-E33 N12-N17
      7 1662  874 (S21W35 L=336)   334     64        2 (1640/ 836-1677/ 913)  63.4 W32-W36 S23-S18
      8 1364  846 (S13W14 L=316)   260    128        1 (1351/ 777-1381/ 910)  60.3 W12-W16 S17-S10
      9  135  844 (N15E70 L=231)  1099    322        1 (  92/ 800- 203/ 888) -15.9 E76-E62 N11-N17
     10  326  784 (N09E51 L=250)   338     92        2 ( 311/ 742- 355/ 821) -90.0 E52-E49 N05-N10
     11 1189  591 (S23E02 L=299)  1656    297        2 (1145/ 451-1252/ 728)  49.1 E09-W04 S31-S16
     12  412  522 (S08E55 L=247)  1268    268        3 ( 331/ 418- 505/ 609) -75.1 E59-E51 S16-S01
     13  531  518 (S11E45 L=256)  1632    305        3 ( 457/ 429- 623/ 608) -72.9 E49-E41 S18-S04
     14  497  360 (S20E57 L=245)   789    176        4 ( 467/ 315- 531/ 395) -78.7 E60-E53 S23-S17
  

    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